home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Basic Tutorial / mctest6 < prev    next >
Lisp/Scheme  |  1998-10-26  |  972b  |  35 lines
  1. ; tutorial example 6 - mctest6
  2.  
  3. (initdef)
  4. (defsym a '(b c a))
  5. (defsym b '(f e))
  6. (defsym c '(b a))
  7. (defsym d '(a g))
  8.  
  9. (def-symbol
  10.   sax (gen-trans a 4)
  11.   clarinet (gen-trans d 4)
  12.   trumpet (gen-trans c 4)
  13.   violin (gen-trans b 4)
  14. )
  15.  
  16. (def-length
  17.   sax '(1/16 1/16 1/8 1/16)
  18.   clarinet '(-1/16 1/8. 1/16 1/4)
  19.   trumpet '(1/4 1/8 -1/8 1/16 1/32 1/32 1/8)
  20.   violin '(1/8 1/16 -1/16 1/4 1/8 1/16 1/16)
  21. )
  22.  
  23. (setq tonals (activate-tonality (whole-tone c 5) (chromatic c 6)))
  24. (setq tonals1 (activate-tonality (chromatic c 6) (whole-tone c 5)))
  25.  
  26. (compile-song-p "ccl;output:" 1/8 "part6"
  27. ; BARS                |-------|-------|-------|-------|
  28. changes   tonals     "            .   .  .      .    ."
  29. changes2  tonals1    "    .   .    .   .  .  .     . ."
  30. sax       changes    "--     ----- --- ---    ----- --"
  31. clarinet  changes2   "  ---  ---   -- - --- --- --- --"
  32. trumpet   changes2   "    ---- ---   - - --   --- -- -"
  33. violin    changes    "      -----  - - - --  - - - - -" 
  34. )
  35.